unit fContractSearch;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TfrmContractSearch = class(TForm)
    pnl1: TPanel;
    lbl1: TLabel;
    lbl5: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl6: TLabel;
    edtContractNumSel: TEdit;
    edtEntCodeSel: TEdit;
    edtEntSimpleCodeSel: TEdit;
    edtCustomerNameSel: TEdit;
    edtCustomerSmplNameSel: TEdit;
    edtStoreNameSel: TEdit;
    pnl2: TPanel;
    btnClearCond: TButton;
    btnOK: TButton;
    btnExit: TButton;
    procedure btnClearCondClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmContractSearch: TfrmContractSearch;

implementation

{$R *.dfm}

procedure TfrmContractSearch.btnClearCondClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to pnl1.ControlCount - 1 do
  begin
    if pnl1.Controls[i] is TEdit then
      TEdit(pnl1.Controls[i]).Text := '';
  end;
end;

procedure TfrmContractSearch.btnOKClick(Sender: TObject);
begin
  ModalResult := mrOk;
end;

procedure TfrmContractSearch.btnExitClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

end.
